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1.  Introduction 


Before  the  advent  of  the  small,  hand-held  calculator,  some  large-scale 

computer  systems  with  multi-terminal  operations  included  software  for  simple 

routine  calculations'1’.  Indeed,  such  programs  were  also  available  for  single- 

2-4 

terminal  minicomputers  .  The  small,  portable  calculator  virtually  replaced 
such  programs  by  the  mid  1970’s.  Today,  the  existence  of  inexpensive  multi¬ 
terminal  mini-computers,  with  true  multi-programming  available  to  users  at  their 
desks,  and  the  security  problems  involved  with  small  hand-held  calculators  have 
combined  to  make  calculator  simulation  programs  again  attractive.  Furthermore, 
the  rapidly  increasing  capabilities  and  speed  of  today's  minicomputers,  and 
the  decreasing  cost  of  terminals,  make  it  possible  for  such  programs  to  compete 
favorably  with  hand-held  calculators,  particularly  in  a  multi-programming 
environment.  In  addition,  specialized  "functions''  can  be  included  very  easily 
in  such  software. 

The  program  CALQ8  was  written  to  fulfill  a  need  for  day  to  day  arithmetic 
calculations  performed  in  a  solution  chemistry  laboratory.  The  environment  in 
which  this  program  was  developed,  tested  and  is  used,  includes  a  Hewlett-Packard 
Model  1000  minicomputer  with  an  RTE-4b  operating  system,  128K-words  of  central 
memory,  a  IS  megabyte  floating-head  disc  drive  and  six  terminals.  A  terminal  is 
generally  located  in  the  laboratory  space  of  a  given  worker  and  the  program 
CALQ8  is  immediately  available  to  him  by  typing  "RUN,CALQ8". 

The  chief  advantages  of  CALQ8  over  a  hand-held  calculator  are  (1)  it  is 
implemented  on  an  existing  computer  system  used  for  on-line  experiments  and 
other  programs,  (2)  it  is  readily  available  in  the  laboratory  environment,  and 
(3)  the  power  of  the  minicomputer  makes  file  access  and  incorporation  of  other 
features  easy.  Advantages  over  previous  programs  of  this  sort  include  (1) 
increased  speed  and  availability  due  to  hardware  improvement,  (2)  coding 
in  FORTRAN-IV  for  ease  of  modification,  (3)  very  flexible  "help"  capabilities 
built  into  the  program,  (4)  extensive  variable  assignment  and  labeling,  and 
(5)  a  very  extensive  collection  of  functions  and  operations. 
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This  document  is  designed  to  be  a  user's  guide  as  well  as  maintainence 
manual.  The  extensive  help  features  of  the  program  obviate  the  need  for  many 
examples  to  aid  the  user  in  implementing  the  program. 

2.  Features  of  CALQ8 

CALQ8  is  written  in  FORTRAN-IV  and  makes  use  of  some  of  the  Hewlett- 
Packard  extensions  to  that  standard  language.  It  is  designed  to  solve  basic 

computations  with  the  same  ease  as  a  pocket  calculator.  However,  the  access- 
ability  of  such  a  program  on  a  computer  makes  computations  much  more  convenient. 

In  addition,  CALQ8  makes  use  of  the  system's  capacity  to  perform  a  variety  of 
functions  not  normally  found  on  pocket  calculators. 

CALQ8,  as  written,  uses  memory  with  a  capacity  for  26  one-letter  variables. 

If  a  variable  is  undefined  and  used  in  an  equation,  its  value  will  be  requested. 

If  a  variable  has  been  previously  defined,  its  value  will  be  printed  and  then 
entered  into  the  computation.  For  variables  consisting  of  more  than  one  letter, 
their  values  are  requested  but  not  stored.  If  a  line  consists  of  a  multi- letter 
variable  which  begins  with  a  V,  the  line  will  be  repeated  and  the  variables  within 
the  line  redefined  (except  for  one-letter  variables  to  the  left  of  the  V-variable) 
until  ST  is  entered.  In  this  way  a  formula  can  be  used  repeatedly. 

Multicharacter  variables  may  be  one-time  variables,  but  may  also  be  the 
result  of  an  input  error.  Any  portion  of  an  input  line  not  recognized  as  a 
number,  symbol,  or  function  is  considered  a  variable.  In  this  way,  if  there 
is  an  input  error,  the  computer  will  ask  "WHAT  IS"  the  portion  in  error,  and 
only  that  portion  need  be  clarified,  not  the  entire  line.  This  presents  a  great 
advantage  over  pocket  calculators  in  that  many  input  errors  will  be  identified, 
thus  reducing  the  possibility  of  a  calculation  error.  Examples  of  these  and  other 
features  are  shown  in  section  8. 

CALQ8  allows  the  user  to  see  previous  calculation  inputs  and  outputs 
on  the  terminal  as  well  as  to  use  the  previous  two  answers  in  a  calculation 
as  ANS  and  ANS ' . 
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SUM  and  AVG  functions  allow  the  user  to  sum  or  average  many  numbers  or 
the  results  of  any  number  of  lines  of  computation.  These  lines  may  consist  of  a 
single  formula  used  as  above  or  may  include  variables,  functions,  and  operations. 
One  useful  feature  of  CALQ8  is  that  no  answer  to  a  question  or  entry  need  be 
a  single  number.  In  each  case  a  calculation,  and,  in  most  cases,  a  variable  can 
be  used.  Even  a  function,  such  as  LOG,a,x,  may  have  entire  expressions  as 
arguements  'a'  and  'x',  or  may  include  variables,  as  only  the  commas  or  paren¬ 
theses  will  distinguish  the  extent  of  'a'. 

Up  to  ten  parenthetical  levels  may  be  used  by  entering  any  combination  of 
parentheses,  brackets,  commas,  or  the  absolute  value  function,  or  answering  a 
"WHAT  IS"  question.  The  program  can  easily  be  modified  to  include  many  more 
levels  by  changing  the  DIMENSION  statements  and  the  error  message.  A  full  range 
of  trig,  log  and  other  functions  is  available  and  the  program  can  easily  be 
modified  to  include  any  function  left  out. 

A  "help"  feature  displays  formats  and  definitions  of  available  functions 
and  operations,  as  well  as  other  helpful  information.  More  detailed  information 
is  also  available  about  variables  and  error  messages  by  properly  responding 
to  the  program's  querry  at  the  end  of  the  initial  descriptive  information.  This 
information  is  available  at  any  point  during  execution  by  typing  "$L"  in  response 
to  the  CALQ8  prompt. 

A  repeated  formula  or  "subroutine"  capability  allows  the  user  to  make 
repeated  calculations  using  the  same  formula. 

These  features  of  CALQ6,  combined  with  the  fast  calculation  and  decoding 
features  of  compiled  code  make  CALQ8  both  easier  to  use  and  faster  to  execute 
than  BASIC  or  other  Interpreters.  In  addition,  CALQ8  is  likely  to  be  a  useful, 
more  capable  substitute  for  hand-held  calculators  in  an  environment  where  a 
computer  system  is  available. 
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3 .  Accuracy 
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CALQ8  is  accurate  within  the  limits  of  the  single  precision  accuracy  on 

whatever  system  it  is  being  used.  It  was  developed  on  an  HP1000  system  which, 

as  for  similar  systems,  would  give  CALQ8  an  accuracy  to  six  or  seven  digits, 

depending  on  the  magnitude  of  the  leading  digit  in  the  mantissa,  and  allow 

—38  38 

numbers  ranging  from  approximately  10  to  10  . 

4 .  Limitations 

CALQ8  uses  two  Hewlett-Packard  Library  routines,  RHPAR^  and  CODE7.  All 
Hewlett-Packard  1000  systems  running  FORTRAN- IV  will  have  these  subroutines, 
and,  on  many  other  systems,  similar  routines  may  be  substituted  with  slight 
modifications  to  CALQ8.  Non-HP  systems  may  provide  similar  routines. 

A  call  to  RMPAR  is  used  to  retrieve  the  user-terminal  logical  unit  (LU) 
number  in  a  multi-terminal  environment.  The  array,  IPRAM,  receives  the  para¬ 
meters  passed  by  the  system  in  the  "run”  string,  and  IPRAM(l)  is  assigned  the  LU 
number,  used  throughout  the  program  for  reading  and  writing.  This  is  standard 
procedure  on  all  Hewlett-Packard  1000  systems7.  On  systems  without  this 
feature,  however,  the  user  should  replace  the  DIMENSION  IPRAM(5)  and  the  three 
lines  following  the  last  DIMENSION  statement  with  another  method  of  determining 
LU  or  delete  these  lines  and  replace  LU  with  a  number  if  CALQ8  is  only  to  be 
used  on  one  input/output  device. 

CALL  CODE  is  used  twice  in  the  program.  The  first  time,  after  statement 
number  830,  it  is  used  to  pack  the  characters  1ST  to  IM  of  LINE  into  the  array 
IPACK.  IPACK  is  then  ready  to  be  read,  free  field,  as  RNUM,  using  another  call 
to  CODE.  The  call  to  CODE  allows  an  array  to  be  read  from  or  written  into  as 
if  it  were  an  input/output  device.  On  systems  in  which  CODE  is  not  present, 
there  may  be  another  similar  subroutine  which  the  user  may  want  to  implement, 
or  one  may  be  created. 

A  further  limitation  of  the  program  on  other  systems  is  the  symbol  at 
the  end  of  some  format  statements  used  throughout  in  order  to  suppress  the  line 
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feed  after  a  write  statement.  Most  non-Hewlett-Packard  systems  use  a 
carriage  control  character  at  the  beginning  of  the  FORMAT  statement  to 
accomplish  the  same  function.  In  most  cases,  the  use  of  this  device  is 
not  essential  and  the  user  may  ignore  it,  except  in  writing  the  answer 
when  this  symbol  is  used  several  times  to  join  portions  of  the  written 
statement. 

The  limitations  of  the  number  of  parenthetical  levels  allowed,  and  the 
maximum  lengths  of  numbers  and  of  lines  may  be  easily  changed  by  changing  the 
DIMENSION  statements  to  make  arrays  of  the  desired  size  and  then  altering  the 
error  messages  accordingly. 

None  of  these  limitations  should  present  any  problem  in  adapting  CALQ8  to 
other  types  of  systems  Fortran  IV. 

CALQ8,  as  written,  uses  memory  with  a  capacity  for  26  one-letter  variables. 

This  can  easily  be  doubled  by  using  lower  case  letters  also  and  changing  the 
number  26  to  52  in  the  DIMENSION  statements  and  DO  LOOP  20.  With  a  few  minor 
alterations,  two  letter  variables  can  be  used,  increasing  program  "memory" 
to  Include  676  or  2704  variables. 

5.  Source  Availability 

A  source  of  CALQ8  will  be  supplied  on  request  on  user-provided  HP 
cartridge  tape. 

6.  Program  Logic  Flow  Description 

CALQ8  is  designed  to  solve  basic  arithmetical  equations  in  the  least 
amount  of  computer  time  and  with  a  minumum  of  memory  space.  An  eighty  character 
input  line  is  read  into  an  array  (LINE)  of  eighty  one-character  words  which  is 
examined  character  by  character  to  evaluate  a  line.  Section  9  shows,  schematically, 
the  program  logic  flow  described  in  this  section.  Section  10  contains  a  list 
of  variables  used  in  CALQ8. 


5 


After  Initialization,  the  first  ASCII  character,  LINE(l),  is  examined 
in  its  octal  form  (as  shown  in  section  9  after  entry  point  I)  to  determine 
whether  it  falls  within  the  range  which  would  designate  it  to  be  a  numeral. 

If  it  is  a  numeral,  the  computer  increments  I  (the  place  in  LINE  being  examined) 
by  one  to  repeat  the  process  with  the  next  character.  1ST  is  equal  to  I  before 
the  loop  is  entered,  and  when  a  value  for  LINE(I)  is  found  representing  a 
non-numeral,  the  variable  IM  is  set  equal  to  this  value  for  I,  thus  IM  and  1ST 
define  the  beginning  and  finishing  points  for  reading  the  number  from  LINE. 

The  process  for  reading  the  number,  as  seen  after  entry  point  M,  utilizes 
the  Hewlett-Packard  routine  CODE:  first,  to  write  LINE(IST)  to  LINE(IM)  into 
IPACK,  packed  in  words  of  two  characters  each,  and  then  to  read  IPACK  in  free- 
field  format  to  get  the  number,  RNUM.  This  process  is  not  used  if  the  number 
is  represented  by  a  symbol  or  variable  name.  For  instance,  if  there  is  a 
symbol  (which  represents  ir)  it  is  initially  tested  to  see  if  it  is  a 
KSNFU  function  until  the  next  operation  symbol  is  found  when  it  is  identified 
as  a  constant  symbol,  and  RNUM  is  set  equal  to  the  corresponding  value,  (in  this 
case,  3.141593).  At  this  point,  entry  point  M  is  bypassed  and  the  program 
proceeds  at  N.  If,  following  a  search  for  one-argument  functions,  the  word  is 
not  identified  as  a  constant  symbol,  it  is  considered  a  variable.  Any  input 
error  not  recognized  by  the  program  also  falls  into  this  category. 

Detection  of  a  variable  causes  branching  to  entry  point  L  after  which  there 
is  a  search  for  specially  treated  functions.  If  a  variable  name  consists  of 
one  letter,  its  corresponding  value,  when  found,  is  stored  in  memory.  One- letter 
variables  are  identified  and  stored  by  converting  the  variable  name  to  a  number, 
LE,  from  1  to  26,  which  is  used  as  a  subscript  in  the  array,  V.  If  a  one  letter 
variable  has  been  previously  defined,  its  name  and  value  are  printed,  RNUM  is 
set  equal  to  that  value  (V(LE)),  and  the  program  continues  at  point  N.  If  the 
variable  has  not  been  used  before,  its  corresponding  IV  value  is  equal  to  888 
(meaning  inactive,  as  opposed  to  777  which  represents  an  active  value  for  a 
flag)  and  it  is  treated  like  a  multicharacter  variable,  as  explained  below, 
except  that  the  flag,  ISINGL,  is  activated  and  the  value  is  stored  after  point 
Q.  After  this,  as  with  all  other  types  of  variables,  the  program  resumes  at  N. 


If  the  variable  is  being  defined  in  the  format  "x*. . LS  is  set  equal 
to  LE  so  that,  after  the  program  proceeds  from  point  I  to  write  the 
answer  and  return  to  point  B,  the  value  is  stored. 

In  the  case  of  all  unrecognized  variables  not  being  defined,  a  question 
is  posed  as  to  what  the  unknown  characters  represent.  This  question  only 
covers  the  portion  of  the  line  in  question  and  therefore  is  highly  specific. 

This  can  be  very  useful  in  correcting  errors  as  the  entire  line  need  not 
be  retyped  if  the  portion  in  question  can  be  adequately  described.  LINE  and 
KSNFU  are  saved  as  IWHAT  and  KWHATF  so  that  they  may  be  used  in  reading  the 
the  next  line  which  the  user  enters  after  the  program  picks  up  at  point  E.  Since 
J  does  not  equal  one,  however,  the  value  for  this  line  is  not  output  at  entry 
point  R  where  the  answer  is  listed,  but  the  program  branches  to  Q  as  if  the 
entire  line  had  been  in  parentheses.  The  indicator  IALPHA  represents  the  value 
of  J  (parenthetical  level)  at  which  the  question  was  posed  and  at  which  the  value 
ANS  is  determined  when  LINE,  I,  12,  and  KSNFU  may  be  restored  to  their  previous 
values.  ENUM  is  set  equal  to  ANS(J+1)  as  the  program  resumes  at  N. 

If  a  multi-character  variable  begins  with  a  "V",  LOOP  is  activated  so  that 
after  point  C  the  logic  flow  continues  at  F,  bypassing  the  READ  LINE,  so  that 
the  same  line  is  used  continuously  as  the  same  questions  are  repeated  and  the 
values  computed.  The  loop  can  be  broken  by  entering  ST  which  causes  branching 
to  A. 

Paret.  -  ical  levels  of  up  to  ten  may  be  reached.  J  is  incremented  by 
entering  a  "("  or  a  first  "1".  This  is  recognized  after  point  I,  and  J  is 
incremented  by  1,  returning  the  flow  to  point  I.  A  closing  ")"  or  a  second 
"1"  or  is  treated  like  an  end  of  line,  recognized  at  point  K,  causing  KADSB(J) 
to  be  set  equal  to  98  so  that,  after  entry  at  statement  980,  execution  proceeds 
at  statement  990  at  which,  if  there  is  a  parenthetical  level  higher  than  one, 
the  program  resumes  at  Q  instead  of  R.  There  the  value  for  ANS(J)  is  used 
to  determine  RNUM,  and  the  parenthetical  level  is  lowered  by  one.  Of  the  three 
possible  paths  that  may  be  taken  from  entry  point  Q,  the  one  taken  in  this 
instance  is  that  of  activating  ISKIP  (ISKIP  777)  before  resuming  at  point  I  so 
that  the  number  reading  process  is  bypassed  and  the  already  computed  value  for 


RNUM  is  retained.  Another  possible  path  from  Q  is  that  used  in  LOG,a,x  functions. 
If  LOGFU(J)  is  activated  by  one  of  these  functions,  the  two  commas  are  inter¬ 
preted  as  parentheses  so  that  any  number,  variable,  or  calculation  between  them 
yield  a  value  for  ANS(J+I).  This  value  is  used  for  BASE  as  the  program  resumes 
at  point  H  to  read  RNUM  and  convert  it  to  the  log  a,  or  log  a  *  function  of 
RNUM  (depending  on  the  value  of  KSNFU) . 

The  value  for  a  one-argument  function  of  RNUM  is  assigned  to  RNUM  after 
N  if  KSNFU (J)  is  activated  after  point  K.  If  a  symbol  is  not  recognized  as 
an  operation,  it  is  tested  to  see  if  it  is  a  one-argument  function  such  as 
SIN,  LOG,  SQRT,  ACOT,  etc.  If  it  is  one,  KSNFU(J)  is  assigned  a  function 
number  so  that,  after  the  flow  is  sent  to  H,  and  RNUM  is  acquired  after  point 
N,  RNUM  is  altered  according  to  the  value  of  KSNFU (J).  In  the  case  of  trig 
functions  there  is  a  choice  of  whether  to  use  radians  or  degrees.  If  not 
previously  specified,  the  preferred  format,  to  be  used  for  both  input  and 
output  is  requested.  This  format  may  be  changed  at  a  later  time  by  entering 
DEG  or  RAD  which  is  detected  after  point  L,  sets  IDR  accordingly,  and  sends  the 
logic  flow  to  point  D  again.  Once  IDR  is  defined,  it  may  either  be  inactive, 
in  which  case  the  normal  radian-using  functions  are  unaltered,  or  it  may  be 
active  in  which  case  any  RNUM  about  to  be  redefined  as  a  trig  function  of  RNUM 
is  converted  from  degrees  to  radians  and  any  output  RNUM  after  a  trig  function 
is  converted  from  radians  to  degrees. 

For  all  KSNFU (J)  functions,  the  function  symbol  is  found  before  the  number 
so  that  the  KSNFU(J)  value  must  be  saved  until  the  first  RNUM  at  the  same 
parenthetical  level  is  found.  The  first  RNUM  is  equal  to  the  first  final 
ANS ( J+I)  encountered.  In  the  case  of  a  factorial,  however,  the  function 
symbol  occurs  after  the  number,  and  therefore,  a  different  method  of  calculation 
is  used.  After  the  symbol  (!)  is  detected,  the  flow  proceeds  to  M  and  then, 
after  N,  RNUM!  is  calculated. 

Numbers  and  functions  must  be  separated  by  one  of  the  operations  +,  -,  /, 
*,**,  and  ■.  These  symbols  are  searched  for  first,  at  K,  from  which,  if  no  non- 
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numeral  characters  between  operation  symbols  are  found,  the  flow  continues  at 
M  where  the  number  between  symbols  Is  read.  After  point  0,  the  functions  are 
computed  by  heirachy,  giving  preference  to  exponentation  over  multiplication 
and  division  which  in  turn  are  given  preference  over  addition  and  subtraction. 
This  is  accomplished  by  having  separate  flags  and  variables  for  each  level. 

At  each  level,  there  are  at  least  two  flags.  There  is  a  primary  flag  which  is 
activated  when  the  symbol  is  detected.  This  is  used  to  set  a  secondary  flag 
so  that  the  next  time  the  flow  passes  through  0  (when  I  is  at  the 
next  operation  symbol  and  the  preceeding  number  has  been  read)  a 
computation  is  performed.  The  order  in  the  logic  flow  as  illustrated 
then  determines  the  heirachy.  In  the  case  of  multiplication  and  division, 
represented  by  MLDIV,  three  variables  are  used:  a  primary  3-state  flag, 
MLDIV(J);  a  secondary  3-state  flag,  MLDIV2(J);  and  a  third  variable,  RNO(J), 
to  hold  the  previous  value  of  RNUM.  The  exponentation  process  also  utilizes 
a  holder,  EXP(J),  which  serves  the  additional  function  of  a  secondary  flag. 
Addition,  subtraction,  and  equals  functions  make  use  of  the  5-state  flags, 
KADSB(J)  and  KADSB2(J),  which  use  ANS(J)  as  the  value  holder,  as  this  is 
the  last  category  in  the  heirachy.  If  the  operator  is  other  than  the 

flow  is  sent  to  point  H. 

If  there  is  an  equal  sign  or  end-of-the-line  function,  the  flow  may  be 
treated  in  various  ways.  End-of-the-line  functions  are  sent  to  point  Q  if 
there  is  a  parenthetical  level  higher  than  one.  If  J*l,  and  there  is  no 
summation  taking  place,  execution  is  sent  to  R  where  the  answer  is  printed; 
or  if  ISU  (summation  indicator)  is  active,  SUM  is  incremented  by  ANS(J) 
and  N  is  incremented  by  one  as  the  flow  is  returned  to  point  D  where  the  "+" 
prompt  appears.  If  there  is  an  "="  function  and  there  is  a  summation,  the 
summation  ends  and  the  answer  is  written  at  point  R.  If  the  symbol  is  not 
the  first  or  second  character,  the  symbol  is  interpreted  as  a  continuation 
symbol  and  another  input  line  is  expected  without  an  intervening  end  of  line 
function  so  that  a  long  computation  may  be  continued. 

At  point  R  where  an  answer  is  printed,  the  various  formats  for  different 
types  of  numbers  are  used.  First,  it  is  determined  if  the  output  is  a  SUM, 


AVERAGE,  or  N,  in  which  cases  it  is  specified.  In  all  cases  except  N,  numbers 
37 

greater  than  10  in  magnitude  are  written  as  +  or  -  INFINITY,  integers  are 
printed  in  18  format,  numbers  greater  than  10/  in  E9.7  format,  and  all  other 
real  numbers  in  F9.7  format.  If  IAV  is  active,  the  sum  is  written  first  and 
then  there  is  a  return  to  1110  to  write  the  average.  This  last  answer  is 
saved  as  AS,  and  any  previous  value  for  AS  is  saved  as  AS2,  both  of  which 
are  used  for  giving  values  of  ANS  and  ANS'  respectively  as  constant  symbols. 
From  here,  the  flow  returns  to  point  B  for  initialization  and  to  read  in  a  new 
line. 
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9.  SAMPLE  PROGRAM  DIALOG 


>  N  w  . AL  jC 

ENTtR  l-AlwLLhT iCN 

(TYPE  '3L’  FCS  LIST  3f  r siwCT _GM3 ,  !i»i;  TO  END; 
I3»4 *(5+6)"£ 

=43?, 33  02 

JStt*ftSBT(#>+«)/2) 

=279.3863 
;A*sf*ut  85/2.' 

-HAT  13  'A'  1 

•  S 

WHAT  IS  8'  ? 

'6 

WHAT  IS  C5  ? 

iSGNTY 

=279.3863 

)D=hHS 

=27? . j S68 

3(M*.+VAR2)/2 

WriAT  IS  VASi '  ? 

•  3 

WHAT  IS  VAR2'  ? 

?S 

=  4 

WHAT  IS  H'4Rif  ? 

?4go4 

WHAT. IS  'M2’  ? 

JCjjc 

=  iS648 

WHAT  IS  Ml’  ? 

■ST 

)S+6*7S300PS!8 
WHAT  13  * 753G0P3 ! 3'  ? 

■  7*8 

=  iZ 

JaSI.46! 

IS  TORrtAT  FOR  TRIG  FUNCTIONS  70  BE  IN  liLGREE:  OR 
(PLEASE  NOTE  'HAT  TORrtAT  CAN  BE  CHANGED  AT 
ANT  TirtE  BY  ENTERING  'DEG’  OR  'RAD','  ii 
^INFINITY 
jL0G,3+o,i.6!) 

=2.743761 

jXr.D 

3ASIN6! 

}SIN(#/2) 

=  l 

5SIN4/2 

=.73j0E-07 

.'SIN* 

=,8800)32 

IDEG 

:  si.w?) 

•  i 
3SIN18G/2 
=.753)E-)7 


IN  RADIANS'; 
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.,'AL  tf 
*5lo 
*A*C 

A=  5. jO 

C„  ,  WJ 

-  *  ,  /  / 

*5 

!l=  279,59 

fs 

SUd  =318.2491 
«=  3 

AVERAGE  -166 . 0338 
IE=ANs' 

=318.2491 

:F=ANS' 

=106.0830 
jG=ANS/2 
=S3. J4151 
39  0 

=+iNfIMITY 

=.5SC7E»38 
}  I  WANS 
».U7SE-37 
)*8E-3o 
=.6fil2£-35 
IGOOD  BYE 

-HAT  IS  GOOD  EYE'  ' 

?A  GREETING 

-HAT?? 

JCOHPUTERS,  YOU  HOST  RUEHKR  ARE  STIJ.  .007  SUITE  AS  SMART  AS  HUMANS. 
nriAT77 

i TYPE  il  FDR  LIST  IF  FUNCTIONS,  'ST'  TO  END) 
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FLOWCHART  (CONTINUED)  -  SEARCH  FOR  NON-NUMERAL  CHARACTERS 


FLOWCHART  (CONTINUED)  -  SEARCH  FOR  FUNCTIONS,  CONSTANTS  AND  VARIABLES 


*70 
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FLOWCHART  (CONTINUED)  -  VARIABLES 
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FLOWCHART  (CONTINUED)  -  HIERARCHY  COMPUTATION 
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FLOWCHART  (CONTINUED)  -  PARENTHESES  REDUCTION,  WRITING  OF  ANSWER 


11.  CALQ8  Variables 


AB 

s 

ABS(ANS(J)) 

ANS(IO) 

= 

computed  answer  after  going  through  KADSB2  computation 

after  statement  no.  980.  (J)  is  parentheses  level. 

AS 

= 

abbreviation  for  ANS(J)  and  conserves  value  for  AS2 

after  average  computation. 

AS  2 

3 

previous  AS  used  for  ANS'  function. 

BASE 

= 

log  base  a  in  L0G,a,n  and  IL0G,a,n  functions. 

EXP(IO) 

— 

number  which  is  an  exponent  or  -9999  indicating 

inactivity. 

F 

- 

number  multiplied  by  (L:L=1,RNUM)  to  get  factorial 

I 

3 

subscript  for  LINE(l). 

12 

1+1  except  when  190  loop  has  been  passed  through 
several  times  in  succession  in  which  case  any  will  not 

be  part  of  RNUM  number. 

IALPHA 

= 

value  for  J  at  which  IWHAT  was  filled  and  at  which  LINE 

will  be  computed  as  RNUM  and  replaced  by  IWHAT. 

IAV 

3- 

indicator  of  whether  average  of  sum  is  to  be  taken. 

IDR 

indicator  of  whether  trig  functions  are  in  degrees  or 

radians . 

IERR 

* 

indicator  of  whether  "What??"  question  has  already  been 

asked . 

IEXPFU(IO) 

s 

function  indicator  for  exponentation . 

IFACTO 

= 

function  indicator  for  factorilization 

IHASSL 

= 

memory  of  where  12  was  when  LINE  stored  in  IWHAT. 

IM 

s 

place  in  LINE  where  number  or  word  ends. 

INVEXP(IO) 

* 

function  indicator  for  deexponentation . 

1PACK(5) 

* 

arrary  into  which  LINE(IST,IM)  is  packed  in  5A2  format 

for  reading  RNUM. 

IPRAM(5) 

* 

array  used  in  CALL  RMPAR  to  find  LU  number. 

IS 

m 

preserved  previous  value  of  12  to  see  if  first  character 

in  number. 
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ISINGL 

3 

indicator  of  where  single  letter  variable  is  or  if  non¬ 
single  . 

ISKIP 

a 

indicator  to  skip  number  computation  as  value  has  been 

found. 

1ST 

- 

indication  of  where  word  or  number  begins. 

ISU 

- 

function  indicator  for  summation. 

ISWTCH 

a 

memory  of  where  I  was  when  LINE  stored  in  IWHAT. 

IV  (26) 

= 

indicator  of  which  single  letter  variables  are 

undefined. 

IWHAT(80) 

' 

storage  of  LINE  when  "WHAT  IS"  question  is  being 

asked . 

J 

subscript  indicating  current  parentheses  level. 

K 

= 

LINE(I)  (abbreviated  name) 

K2 

= 

LINE(I+1) 

K3 

= 

LINE (1+2) 

K4 

= 

LINE (1+3) 

KADSB ( 10) 

= 

function  indicator  for  addition,  subtraction,  =,  and 

end  of  line. 

KADSB2(10) 

a 

secondary  indicator  for  KADSB (J)  to  execute  function  next 

round . 

KSNFU(IO) 

* 

function  indicator  for  all  trig  and  other  one-arguement 

functions . 

KWHATF(IO) 

3 

copy  of  KSNFU  when  "WHAT  IS"  question  is  being  asked. 

L 

* 

miscellaneous  DO  LOOP  subscript,  and  question  response 

indicator. 

LE 

* 

numerical  representative  from  1  to  26  of  single  letter 

variable 

LGAMMA 

« 

marker  of  whether  and  where  variable  exists. 

LINE (80) 

- 

array  in  which  line  to  be  computed  is  stored. 

LOGFU(IO) 

- 

function  indicator  for  3  different  log  functions. 

LOOP 

- 

indicator  of  whether  repetitive  use  of  LINE  is  in  effect. 

LS 

* 

indicator  of  whether  and  which  place  in  V(26)  AS  is  to 

be  defined. 

LU 

- 

terminal  number  as  computed  in  CALL  RMPAR. 

MLDIV(IO) 

MLDIV2(10) 


N 

RNO(IO) 

RNUM 

SUM 

V(26) 

X 


*  function  indicator  for  multiplication  and  division. 

*  secondary  indicator  to  execute  MLDIV  function,  specified 
previous  round. 

=  indicator  of  how  many  entries  have  been  summed  (also  used 
to  compute  average) . 

=  previous  RNUM  in  MLDIV  computations. 

=  number  presently  being  worked  with  to  get  ANS(J). 

=  sum  of  AS  values  for  lines  which  were  computed  under  sum¬ 
mation  function. 

=  memory  for  single  letter  variables. 

=  abbreviation  for  SQRT  (1-RNUM**2)  used  in  computing  arc 
sin  and  arc  cosine  functions. 


12.  PROGRAM  LISTING 


3 nit  si#3i  "TN.  li ; 4'.'  nil  T.iU. .  £3  AuS,  t  „?69 


OOC1  FTN4,L 

8992  '  PROGRAM  CAL88(3,??),SEV  3-15-20  D  BISN 

u  0  03  £ 

3334  £ 

30  OS  C  jANIZL  BIHN 
3036  £  OCTOBER  3,l?7? 

033"  £  1037  RECENT  UPDATE;  THURSDAY,  AUGUST  23,  i?30 

0003  C 
300?  C 

3310  uLIENSION  £?RArt(3).LIHE(38),IiinAriSd),IPACXi5) 

3311  DIMENSION  MLDiVi  10 J  ,HLDIV2(  10) , lEXPFUt  10 1  ,£XP '  10>  ,«NCii3) 

3012  DIMENSION  TADStKiO)  ,<AD3B2(liS)  .ANSCO)  ,KS»Fu<W  JUMTFUOi 

3013  DIMENSION  V ( 26 . IV (26 ) , LGGFU ( 1 0 > , iNVEXP  ( 1U > 

0014  CALL  RMPAR ( PRAM) 

031S  U=IFRAM(i) 

0916  iFiLU.it. J>Lb— 1 

0017  URITEdU.lO; 

301S  10  FORMAT! ‘  ENTER  EALEULATION”) 

3019  iiRITE(LU,72fl) 

0020  I ERR =£38 

1021  1=3 

3022  I3U=833 

0022  SLiM=0 

3024  L L-999 

3025  HR  =999 

GU26  I3:NGL*777 

0027  NEGVAR=388 

3328  AS=0 

0029  AS2=U 

0030  DC20  L=i ,2i 

3Q3i  V(LJ=0 

0032  23  :V(U=3S8 

0033  30  TO  SO 

0034  3G  »RITE(HJ,4i); 

0035  40  FORMAT 4 *  LINE  TOO  LONG.  -  7?  CHARACTERS  IS  MAXIMUM") 

0036  SO  0)02=688 

003/  80  j=1 

0038  -Fils. EC, 999)30  TO  70 

3039  9(LS)=AS 

0040  TV(L3)=77? 

0841  ;.S=9?9 

0042  73  LuAh(1A=99? 

0043  IALPHA=?99 

0044  IFACT0=888 

004S  I3TOP=0 

0046  BOBO  L=i,10 

0047  83  L0GFIJ(L)=S88 

0048  IE < LOOP, E3, 777) 50  TO  ISO 

0049  90  If USU. HE, 777) GO  TO  118 

OOSO  4RITE'1U,100) 

0051  100  FORMAT ('  +  "i 
0032  30  TO  130  “ 

00 S3  110  *AV*883 

0054  5UM=0 

3 OSS  LOOP =833 
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lit/  1= 


WRITE!L'J,12I)) 
format;*  }  *> 

REMHLU.MDlINE 

FORHAT(30Aly 

jriLINE!80).NE.2334Q3)GG  TO  20 

GO  TO  160 

i_QQP=883 


iiXIPs888 
MLDIV!J)=I 
nLDIV2( J ) =0 
,e:<pfu(j;=883 
£XP!J)=-999? 

XADSB2(J>=0 
£HVEXP( J)-38S 
t_GAMMA-999 
I3T=i+l 
1=1+1 
K=LINE(I) 

iF(I.GT.7?)GC  to  30 

IF!!K. GE. 380408. AND. X.lE. 344498), OR. X. £8. 

+275403 . OR , (X , EQ . 264408 . AND. I, EG, 12. AND . ISKI? . NE , 777 
+ .  AND .  /.GAMMA ,  E3 .  °99)  )GO  TO  190 
14=1-1 
18*12 
12=1+1 
K2=-_INE(I2) 

;F!K.NE.424468.0R,I.£Q.I5.itt.I.EQ.i)GQ  TO  200 
IF(X2. £8.254403)1=1+1 
GO  TO  193 
XA0SB(J)=I 

IF ( X . £8 . 244483 .  OR .  X . £0.564408. OR . K . EQ . 76440B ) GQ  TO  210  . 

IF (X.EQ. 260408. AND. J.GT.t. AND. LQGFUw-i)  .NE.  383)50  .0  213 

IFiX.NE. 200408. AND. I. LT.7?)GO  TO  223 

IF/X2.NE. 200403)50  TO  190 

IFC.Nt.DGO  TO  210 

I5T0P=ISTQ?+i 

IT (ISTOP ,GE.3)G0  TO  1249 

IF!  ISTOP ,  EQ ,  1 )  WR  ITEdU .  209) 

9  FORMAT! *  WAITING  FOR  INPUT') 

IF ( ISTOP .£G . 2) WRIT£{LU>208) 

S  FORMAT! '  GOING!') 

GO  TO  90 
XADSB(I)=98 
■GO  TO  600 

IF(X,NE. 760408)50  TO  230 
IF(XSNFU(J-i).E8.20)GQ  TO  210 
X3NFU!J)=20 
GO  TO  240 

IF ! X , NE . 240408 , AND . X . NE . 55440B , AND . X . NE . 754408) GO  TO  260 
J=J+1 

IF(J,LE.lO;GC  TO  170 


WRITE(LU,25fi) 

rnowAT i *  rnn 


GO  MANY  '(’  -  NINE  IS  MAXIMUM') 
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Oil!  GO  TO  58 

0112  l  U  it  it  =1 EQUALS)  I*  II  «  «  II  II  I  II 
9113  269  IRX.NE,36440S.hND.X.N£.23040B)GO  TO  270 

5114  if ( IS, £Q, I . AND.LGArtrtA.EQ.v99. ArtO. 1 >E. 1) GO  TO  1570 

OiiS  XADS3(J)*?9 

Glib  tail  TO  sOO 

uiif  :  II  H  II  *1  i-tr-.US}  *1  II  II  II  II  II  II  II 

3118  2^0  IF(K.cQ,25443B)XACSB(J)=i 

Oil?  IF(X.EQ.26440B)KADSB(J>=2 

0120  IF(XADSB(J).Nt.O)GO  TQ  6lli 

9l2i  IFIX.EQ. 579408)60  TO  250 

0122  IFiK,NE.37Q40BSGO  TO  280 

0123  ilW£XP;J)=777 

9124  GO  TO  250 

OiiS  C  *1  DISTINGUISHES  BETWEEN  V  i TINES) AND  'll*  (EXPONENT)  II 

0126  280  IF(K,NE,2S048B)SO  TQ  310 

0127  IFiX2.ivE.25040E)GO  TO  309 

9123  1*12 

312?  253  IcXPFU(J)*777 

0i30  GO  TO  600 

3131  393  rtLDIV(J)=3 

3132  GO  TO  699 

5133  C  »  LOOKS  FOR  .DIVIDEXI 
0134  319  IfiK. NE.2744flB)G0  TO  320 

9135  1LD1VU>=4 

9136  GO  TO  600 

5137  320  IF(uGAHrtA,N£.‘???)GO  TO  153 

9133  239  IF(LINE(IST),ES.2a940E)I3T=I3Tti 

913?  »F(K. ME, 284468)50  TO  349 

0149  1F4CTG=777 

9141  GO  TO  ??0 

3142  349  -FU.ME.ISDGO  TO  45S 

3143  X3=LlNE(I+2! 

5144  IFiKSNFU(J),NEJ)GQ  TO  490 

3145  IF  K .  EQ .  41440B ,  AND .  X2 .  EQ .  474403 .  AND . 

0146  ’■<3  .E3. 51448B)X3NFU<  J)-8 

5147  IF  ( K .  Efl .  4444  9 B  .AND.X2.E0.47040B.Arti). 

9148  +K3.EQ.530408)K3NRJ(J)*30 

014?  IF(K3,NE.47040B)GO  TO  330 

0150  IF \ K . EQ . 32C40B , AHD . K2 . EQ . 49449B )  KSNfiK  J  >*9 

0151  IFfK.EQ.  S1440B.  AND ,  K2 .  EQ,  44440B )  XGNFiKJ)=7 

5152  350  IFtK.£fl.4l448B.AND,:<2,Ee.Sl440B.AND.K3.Ei.K)KSNFU<J)=l3 

0153  if (X.EQ. 514408, AND. K2.EQ.42440B, AND. K3.E9. 414402 )KSNFU(J)*14 

0154  IF  IK . EQ , 41448B . AND . X2 . EQ . 47440B . AND . X3 . EQ . 52840B ) K  SNFU ( J )*l5 

0155  IF(XSNFU(J).NE.O)GO  TO  433 

OiSo  X4=LIN£(I+3) 

0157  IF(X.NE.S14*0B)GG  TO  380 

0158  IF (K2.NE. 504408. OR, X3.NE. 

01S?  •S1043B.OR.X4.NE.32O4OB)GO  TO  370 

3160  X3NFU(J)*6 

0161  GO  TO  437 

0162  370  IF(K2.NE.S2440B.OR.K3.,«.46448B.uR.I.NE.l>G3  TG  330 

Clo3  I £0*777 

Oiji  GC  TO  ”0 

OldS  350  iF ( K . NE . 40448E . OR . X2 . N£ . 530*SB . OK . K 3 . NE . 43440B ) GO  TO  390 
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Gleb 

0167 

0168 

316? 

393 

9170 

3171 

0172 

0173 

0174 

0175 

430 

0176 

3177 

413 

0178 

0179 

0189 

423 

0181 

•3182 

0133 

0134 

0185 

3136 

433 

3187 

437 

0133 

438 

013? 

439 

0190 

0191 

440 

0192 

0193 

0194 

450 

0195 

0196 

0197 

0199 

019? 

469 

0209 

0201 

0202 

0803 

473 

0204 

490 

0235 

0206 

0207 

0208 

0239 

495 

0210 

0211 

500 

0212 

510 

0213 

0214 

520 

0215 

4216 

0217 

0218 

021? 

0220 

IGU=777 

IAV=777 

Go  '0  n 

IFiK, NE,46040B)GG  TO  420 

if(K2. HE, 474408, Oii.XSJt, 434401000  TO  4ii 

1F(K4.€.268««B)G0  TO  400 


u3GFU<J)=77? 

GO  TQ  240 
X3NFU(,T)=22 
GO  TO  438 

IF(K2.l€.47G488iG0  TO  420 

RSNFU(J)=2i 

GO  "0  43? 

IF (K . Nt . 444408 . OR . X2 , HE , 460406 )  Gu  TO  430 
IF<K3. HE, 474403. OR. X4,NE,43440B)G8  TO  440 
.FiLINE(:+4;,.4E.26349B)G0  TO  430 
I-I+4 


LOGFUC  J/l=666 
GO  TO  240 
i(SNFU(J'=24 
1=1+1 
1*1+1 
1=1+1 
GO  TO  130 

;F:K3.Nt.470403)GO  TO  4S0 


<SHFU(J)=23 
GO  TQ  438 

IF (X. HE. 404408) GO  TO  470 

IF (K2.ME, 4i44flB)G0  TO  460 

ir(K3.E5, 47440E ,  AND ,  X4 ,  EG .SMCBriSNTUt  J)=ii 

IF5X3.EQ.  514408.  AND.  K4,EQ.K2)K3NFiKJ)=i6 

IF(K3. £8. 474408.  ANJ.X4.a.5294fi8)KS*FU(J>*i3 

IFiX2.Efl.3144fiB.HHD.X3.£8,42440B.AND,i(4.E8.4i440£l)XSHFlia)=l7 

IF«4.NE.4704Q8)Gl3  TO  470 

.F;K2.£Q.Si44OB,AND.X3.E8,4444OB)XSNFU(J)=10 

:F(X2.E8.S2C406.ANO,K3.E8.40440B)KS«Fli(J)=t£ 

IF(KSNFU(J) .NE.OIGO  TO  437 
IF ( I 3K IP . £Q . 777 ) GO  TO  190 
iFd.HC.DGO  TO  495 
IFfX.EQ.22040B.ANO.X2.E6. 

+50449B.AW).K3,EQ.32040B)GO  TO  1250 
IF(X.E8,22040B,AND.X2.EQ.46040B)GO  TO  511 
i.GAHHA=i 
GO  TO  191 
W(!ITE(LJ,510) 

FORMAT < "  Be  m  twnt  this  iisteo  i>n  tne  printer  w  screen?  *) 

R£AD(LU,S20)L 

FGRMAT(Ai) 

IF(L.E8.S1440B)GO  TO  550 
IF<l.NE.SOO40B)GO  TO  500 
GR2TE(6,S60) 

MITE16  530 J 
WRITE  C6 . S90 ) 

MITE  (6, 540) 
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0221 

0222 

0223 

3224 

0225 

3226 

3227 
0228 
022? 
3230 
3221 
0232 
0233 
0234 
3235 
0236 
0237 
0233 
023? 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0243 
024? 
0250 
0251 
3252 
0253 
0254 
0255 
0256 
0257 
0253 
025? 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
026? 
0273 
0271 
0272 
0273 
0274 
0275 


540 

550 

560 


570 


380 


7 


FORMAT! ‘I*) 

GO  TO  90 
WRITEILU,S60) 

FORMAT ( ’  CALQS  FUNCTIONS  ARE  AS  FOLLOWS: 

"  .  PLUS*/ 

.  MINUS*/ 

•*  .  TIMES 7 

*7'  .  DIVIDED  rY7 

■*  '**'  OR  '** .  EXPONENT*/ 

'SORT' .  SSUARE  ROOT*/ 

'INV'  .  INVERSE*/ 

')'  .  INVERSE  POWER!!.*.  xVi/y))*/ 

v*  'SIN'X/COS’X.'TAN'XV 

»*  'CSC'X  ‘SEC’X:(COT'X  TRIG  FUNCTIONS  OF  X7 

ADD  AN  A;  MORE  THESE  FOR  THE  ARC  FUNCTIONS*/ 

5 SUM'  .  WILL  SUil  SINGLE  NUMBERS  OR"/ 

FULL  COMPUTATIONS  LINE  BY  LINE.  USE  KEY  FOR  ANSWER*/ 

’AVG’  .  GIVES  SUM  WITH  AVERAGE*/ 

THE  NUMBERS  PI  AND  E  RESPECTIVELY*/ 
FACTORIAL*; 

ABSOLUTE  VALUE  OF  'X'  OR  AN  EXPRESSION" 
3RACKET37 


f 

+* 


‘♦'/S' 

'  i  > 

1 IX!  ' 

'(...)' 


♦*  LOG’X. ‘LN'X/LGG, ’a,X:LCGiO,LOG* .AND  LOGa  GF  XV 
f*  'ILQG’X/ILN’X, 'IuG,  ;a,X:  INVERSE  OF  ABOVE  FUNCTIONS*/ 
+'  ‘='orV .  END  JF  SUMMATION  OR  uINE  CONTINUED*/ 


END  PROGRAM*/ 
to  find  out  aaout  variables  anc  errors/. 

*0  ?3 


JT 

t1  Do  you  wan 
READ(LU.570)L 
FORMAT (Ai) 

IF!L.EQ. 470406)60 
«i<ITE(LU,5SG} 

FORMAT! *  Variables  are  usea  as  follows:*/ 

+*  Any  seqence  if  characters  wnicn  are  not  recognized  as  a  V 
+*  function  or  niiHber  are  nade  variables.  This  includes  V 
♦*  inoroperly  placed  functions  and  nunbers  witn  an  accidental'/ 

+*  .etter  oeside  or  within,  .n  the  case  of  an  error,  tne  V 
<•’  progran  will  ask  'WHAT  IS'  (tie  sequence)  after  which  tne7 
+"  user  should  restate  properly  tne  entire  quoted  aoruon  of"/ 
t*  the  line,  in  the  case  of  an  error  entereo  on  this  secinaV 
+*  attenpt  (the  prompter  this  tine  beinq  a  a  sinpieV 
♦*  ’WHAT??'  is  asied  to  which  the  user  still  has  one  last*/ 
a*  chance  to  enter  an  unerrored  line  after  the  If*/ 

♦*  another  'WHAT??'  cones  back  again  (along  with  a  brief*/ 

+*  instructory  nessage),  the  user  must  segin  the  line  V 
*'  all  over  again.'/ 

<•*  However,  this  feature  uf  CAL98  is  useful  for  another*/ 

+*  purpose  --  that  of  being  a  variable  in  an  equation.  If  a  V 
♦'  uariable  of  one  letter  tron  A  t*  Z  is  used,  the  value  will"/ 

+  be  stored  and  can  be  used  in  anu  further  equation,  A*/ 

**  variable  of  this  kind  nay  oe  defined  or  changed  by  entering'/ 
*'  'X*'  fur  instance,  If  one  such  uariable  is  useo  an  7 
«•*  equation  but  has  nut  been  previously  defined,  the  progran*/ 

♦*  will  ask  for  and  assign  its  value,’/ 

♦■*  If  a  variable  of  nure  than  one  character  beginning  with* 
«RITE!LU,S8S) 
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0276 

0277 

1273 

327° 

0230 

0281 

0282 

0223 

0284 

0235 

0286 

3287 

0288 

02S9 

0290 

3291 

0292 

0293 

0294 

0295 

329b 

0297 

0293 

0299 

0300 

0301 

0302 

0303 

8304 

030S 

0306 

0367 

0300 

0309 

0316 

3311 

9312 

0313 

0314 

031S 

031b 

3317 

0318 

3319 

3320 
0321 

3322 

3323 
0324 
0325 
932b 
0327 
0323 

3329 

3330 


385  F0RHAK22X,  "PRESS  RETURN  WEN  'WISHED  READING  " 
X=9 


396 


REMU.U.IH 

lONTIMJE 

ilRITE(LU,5?0) 

fCRHATT"  a  "»u  .5  included  in  the  line,  the  program  will  * 
continue1/ 

*o  as*  for  values  for  the  variables  until  ‘ST '  is  pressed1/ 
and  will  continue  to  give  answers  for  each  cycle."/ 


One-letter  variables  in  this  fornat  will  only  be  treated1/ 
as  such  if  tney  are  enterec  aefore  tne  initial  Holti-1/ 
character  variable  beginning  with  V.  Like  for  SUN  and*/ 


bOO 


616 


626 


639 


640 


oSQ 


anv  other  portion  where  values  are  entereddnciuoing"/ 
the  base  for  lOG(a),  the  entered  values  for  variables1/ 
i*  need  not  be  direct  numbers  but  nay  consist  of  a  whole  line1/ 
v*  of  c  imputation."/ 

*'  in  such  cases  as  well  as  *n  others  it  mv  be  useful  to" 
i*  use  ANS  as  a  variable  which  has  the  value  of  the  previous"/ 
♦*  Lne.  A  lire  is  stored  by  entering  ‘X*4NS\  for  7 
o"  exanple.  Also,  ANS'  is  usea  to  represent  the  value"/ 

*4  of  the  line  before  that  represented  by  wNS.1' 

GO  TO  90 

;F(LWE(IST),E8.20040B5IST=I2M 
If(LGANKA.£fl.?9?)GG  TO  790 
i.GrinNA-599 
«NUN=0 

Ir<  LINE  ( 1ST ) .  £Q .  «21440B)RHUH*3 . 1415927 
IF( LINE (1ST ) . EC . 40340B )RNU«=2 . 71 8231 8 
IF(gNUH.IC.f>63  TO  350 

IF  ( LINE(  1ST) .  NE ,  404408. OR .  LINE  t  ISTn) .  NE .  47040B .  OR , 
+LlNE(IST+2) .NE.314408)G3  TO  610 
x  NUrt**  A  3 

IF  TUNE  ( IST+3) .  EQ .  23440B)RNUN*A82 
GO  TO  350 

iF(LINE(IST).ES.Sv440B.AND.LINEilSTrl).ES.52040B)GD  TO  1250 
if  TLINEdST).  £8.514408.  AND.  LiN£(I3Thl).E3.S20403)GO  TO  SB 
IF(LlNEaST).N£.42040B.OR.uINE(ISm).NE.42440B.OR.LINE(IST+£) 
*.N£.43440B)GO  TO  621 
IDR=777 
GQ  TO  90 

IF<  LlNt( 1ST) . NE . 51B40B. OR .LINE l IST+i ) . NE . 40440B . OR . 

•LIN£( IST+2) , NE . 42940B)GO  TO  630 

IOR-888 

GO  TO  90 

IF(LINE(IN) ,NE,20440B)GO  TO  640 

IFACT0S777 

IN»IN-1 

lFdST.NE,  IN/SO  70  680 

LEs!LINE(IST)-164ib)/2S6 

IF  ( 1ST .  NE .  1 .  OR .  i.INE(  IST+1 ) .  NE .  36440B)GO  TO  650 

KADS8(J)»0 

L3=L£ 

ISWIST+2 
GO  '0  190 

IF ( 1V(LE) . E9. 777 .AND .  -OOP , NE . 777)G0  TO  660 
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3331  :SINGL=IST 

0332  GO  TO  685 

3333  663  RNUN=V(LE) 

3334  IALPHA=?9? 

0335  j*R1TE<LsJ  v6?0  )Ll.NEi  1ST)  ,RNUN 

3336  670  FQRHAT(iX,Al/=V3.2) 

0337  GO  TO  850 

0330  oGO  IFtLINEdST)  ,NE.264488)GG  TO  681 
033?  IST=IST+i 

0340  «EGM=7V 

3341  GO  TO  640 

3342  681  IRLINEdST)  .23.53O40B)LOOPS??7 

0343  635  IF!IALPHA.£Q.?99)GQ  TO  730 

0344  690  i*RITE!LU,700) 

0345  700  FORMAT! *  GHAT7?*) 

3346  IF(I£RR.£Q.777)GU  TO  711 

3347  IERR=777 

0348  GO  TO  90 

0349  710  GRITE!LU,720) 

0350  720  FORMAT! *  (TYPE  '$L»  FOR  LIST  OF  FUNCTIONS,  'ST;  TO  END) ■) 
3351  GO  TO  50 

0jj2  -3u  *0740  l*1.u0 

0553  740  IUHAT(L)=LInE(L' 

5354  30750  ^;.i3 

0355  MATF(L)=KSNPJ(Li 

3386  750  K3NF;J!L)=9 

0357  tt!ITE<LU,760) 

3333  760  FORMAT! *  GHAT  IS  ‘  *) 

035?  URITECLU,77G ) (IWHAT(L) ,L=IST, Irt> 

03o3  775  mJRMAKAi."  ') 

0361  UK  ITE  ( LU .  78TJ ) 

0362  735  FORMAT!"’  ?*/*  ?  "> 

5363  ISUTCH-I 

0364  IALPHA=J 

0365  IHASSL=I£ 

0366  j-J+i 

3367  GO  TO  130 

3363  790  IFdSKIP,  EC,  777)50  TO  850 

036?  If(LINE(IST) ,Eg.23040B)ISMSTtl 

0373  L»BHST 

0371  IF(L.GE.0)GO  TO  300 

0372  ;!NUM=0 

0373  IF  <:  IM .  £9 . 0 .  AND .  I  ALPHA ,  E3 . 999 )  RNU«=ANS<  J) 

0374  GO  TO  850 

337S  300  IF(L.LE.3,GR.(L.LE.9,AND.LlNE<lST),t8,26443B)>GQ  TO  820 

0376  9RITE(L’J,3i0) 

0377  310  FORMAT ( *  NUMBER  HAS  TOO  MANY  DIGITS") 

0373  GG  TO  58 

037?  320  00830  L=i,S 

0380  830  IPACK  <0=280403 

0381  CALL  CODE 

0332  «ITE(IPACX134#MLINE(U,L*IST,I») 

0383  848  FORMAT!  11  At) 

0384  CALL  CODE 

3385  R£ADdPACK,*)RNUH 
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9388  SSO  IF(XSNFU(J).EQ.3)G3  TO  >40 

03S7  lFiKSHFiJU)  .Li,2Q>»m=AbS{mni 

0338  IK <K5NFU( J ) . LT . 7 , OR .  X3NFUU ) . G7 . i3)G0  TO  929 

COS?  iFiIM.NE.??9>GQ  TO  ?0J 

0399  IDH=777 

3391  4RiTE(Ll).860) 

3392  3lo J  FORHATt-'  IS  FORMAT  FOR  TRIG  FUNCTIONS  "0  3E  IN  DEGREES  OF  I** 

0393  >*  RADIANS?*/ "  (PLEASE  NOTE  THAT  FORMAT  CAN  S£  CHANGED  AT  ” 

039-  -*  ANT  flrtt  n 

3393  370  URirE<Ul»38«) 

3396  380  FORMAT ( *  BY  ENTERING  ‘DEG1  OR  ' TAD > !  *) 

9397  R£AD(LU,ao0iL 

9398  390  FORMAT (Hi) 

0399  If (L . £Q. 51040B) IGR=838 

341.3  if  ( 1DR ,  NE ,  G88 ,  AND , .. .  NE ,  420  438  )6G  TO  370 

3431  903  IF(i(SNFU<J).LT.i3.uR.iKSNFU(J).3T.12.AND,XSNfU;  J)  .LT.ij) 

C402  +  C».XSNFU(J).S7.18)GO  TO  913 

0403  if  ( ASS  tfNUN) .  Lt .  1 . 3 » X=SQR T  ( 1-RNUMI2 ) 

3404  i;:<K3NFU(J).5£.16.AND.XSNfU(J).U.i8)RNUN=1.3/RNUN 

3403  IF(K5NFU(  J)  .EQ.iO.GR.XSNFUO  ,L&,  lu)RNUrt=ATAN(Rmjf\  X) 

’40a  If(XSNFlKJ)  .EQ.il  .CR.KSNFUTJ )  .EQ.i7)RNUN*ATAN<X/*MJ«) 

0437  ir'XSNFli(J)  .L3.i2.Cfi  .XSNFUUi  ,L3,13;RNUH=ATAN(RNUrt 

0438  IF XIDR.E8. .(77)»NUN*RNUM/0. 3174522? 

0439  GO  TO  933 

0410  913  IF (IDR.ES, 777 )RNurt=RNL’rt*3. 017-532? 

0411  IF(KSNFIHJ)  .Eu.7,0i<.XSNFU(J)  ,£&.  12)RNUhsSINiRNiJN) 

3412  IF (XSNFU! J ) . EQ . 3 . OR . XSNFUX J) . EQ. 14 i RNUrt=COS(RNUM ) 

0413  IF  ( XSNFU  ( J ) .  E8 . 9 .  OR .  KSNFUC ) .  EQ .  1 S )  RNUM*TAN<  RNUN  / 

3414  920  If 'XoNFU(J) .tQ.39.QR.(XSNFU(J; .GE.13.AND. 

0413  i-XSNFUl }) .  LE.  IS)  )RNU«=1 , 0/RNLW 

041a  IF((i<SNFU(J).3E.7.AND.X3NFU(J>.LE.l3).jR..<SliFU(3  / .EG. 33)60  TD 

0417  If (XSNFU ( J 1 . EQ . 2 3 ) 8ASE=2 . 7132813 

3418  ir(X3NFU(J) .iS.24)8ASE=10. j 

041?  IFIXSNFU(J)  .GE.23.AND.KSNFIMJ5  ,LE.2S)RNUN=BASE«RNUi1 

3423  IF(RNUH.LT,(i.3))GO  TO  69C 

0421  IF (<SNfU( J) . EQ .6.RNUM=S6RT 

0422  IF'HMUH.EI).  (D.O))GO  TO  690 

0423  IF(K3NFii(J)  .EQ.2i.GR  ,K3NFU(J)  .LG.2o)FNUH=*LQG(KNUt1) 

3424  I " ( XSNFU ( J ) . EQ . 28 ) RNUH*R  NUN/ ALQG ( 3ASE ; 

3425  IF ( X  S NFU ( J ) . EQ . 22 ) RNUM=ALQGT ( RNUM ) 

0428  930  XSNFU  (J  3*9 

3427  943  iF(IFACT0.«E.777)G0  TO  983 

3423  IfACTO-888 

042?  1SXIP=777 

3430  7*1 

0431  DG950  _*1,RNU« 

0432  9S0  F*F>L 

9433  *NUN*F 

0434  GO  TO  i90 

0433  955  yRITE(LJ,?56)RNUN 

3438  55i  FORMAT ( *  NUMBER  TO  THE  POWER  CF  "F9.4'  SANNCT  2E  NEGATIVE’) 

0437  GO  TO  99 

0433  9&0  I5XIP=888 

3439  IF(EXP(J),LT  l-99?8))G0  TO  c83 

3449  L*i 
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3441  IF(EXP(J) .GE.OJGO  fO  964 

0442  wXP(j)*-EXP(J) 

3443  IFf.AlNT(RNUH>.NE.RNUH)GO  TO  ?53 

3444  If(AIi4T(RHUH/2).,€.(RNUH/2))Ls-L 

044S  c64  2NUN=L*EXP(J)WR.4UH 

3446  965  EXP <J >*-9999 

0447  I'ilEXPFUJ,' . Nt . 777 ) GO  TO  970 

0448  IEXPFLK  J )=888 

i)449  Yp  <  t\  uj  I* 

0450  iniWEXP(J).E3.777)KSNF'J(J)=3« 

0451  :NVEXP(J)=888 

0452  5G  TO  :80 

0453  770  1F<MLDIV( J) .£Q.0.AND.HLDiy2(J) ,£8. 0)GO  TO  980 
3454  !F(rtLDI'J2(J)  .EQ.3)3RUH=RNO(J)«NUH 

0453  IF(HLD1V2!J)  ■  £3. 4)R}4UH=SNO(  J)/‘RMUH 

0456  i1LDIV2U)=ALO(.J) 

0457  IF<ftlDIV2(J).£Q,0)GO  TO  980 

3453  .1i)IV(J)=0 

045?  iiNOa>=RNU« 

3460  GO  TO  180 

0461  980  :F(XADS32(J).E3.1I)hNS(J>=PNU« 

3462  IFUADSBStJ)  .EQ.i)ANS(J)=ANS<  J)+RNtJrt 

34o,3  iF  t  <ADSB2  ( J ) .  ;B .  2)  ANS  ( J )  =ANS  ■  J )  -KNUH 

0464  KADS32(J)=KADS3U) 

3463  lF'.XAJ)S82(;).£a.?93G0  TC  1090 

3466  IF<I<ADS82<  J).N£.?3)GQ  TO  180 

0467  IFU.EQ.OGO  TC  1060 

0463  «NUH=A«S(J) 

0469  j=J-l 

0470  :F':L0GFU';j).E8.777)G0  TO  1041 

3471  IF(LOGFIKJ)  .EQ.6663GO  TO  1030 

0472  1F< J.E8.IALPHA3GO  TO  1000 

0473  ISm?=777 

0474  GO  TO  190 

0473  1000  1=1580 

0476  I2=IHASSL 

3477  IALPFA=99V 

0478  IF i NEGVAR . £8 , 777 ) RNUM=-RNUfl 

0479  N£GVAR=888 

0480  301010  1=1.60 

0481  1010  LINE(L)=IUHAT (L) 

0402  DC1020  Lai.  10 

0483  1020  K3NFU(L)=K8HATF(L! 

0484  iF(13INGL.£Q.777)G0  TO  850 

0485  LE=(lM(ISINGL)-i6416)/'256 

0486  I3INCL=777 

0487  V<LE>=RNU« 

0488  iV(LE)*777 

0489  GO  TO  850 

0490  1030  <SNFU(J)*25 

0491  GO  rO  10S0 

0492  1043  <3NFU(J>*26 

0493  iF'RWJi.GT.OGO  T0  1130 

0494  8RITE(LU,1045)RN1jn 

0495  1045  F8Rf!ATilX,F?,4, '  AS  LOG  BASE  IS  WOT  POSITIVE' 1 
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3493  GO  TO  90 

349?  1333  3Abc=SNUH 

3493  LOGFUt J)=88S 

3499  GO  TO  180 

0500  1050  IF(ISU.N£.?77>SC  TO  1111 

3331  5UM=SUM+ANSU) 

3302  ANS(J;=>J 

0503  i<ADSB2ii)=ij 

0504  N=N+1 

0505  IERR=838 

0506  GO  fO  90 
0507  1070  1=0 
3S0£  MITE(lU,i33C) 

0539  1030  FORMAT i '  6  *) 

0510  READ (LU.14H) LIKE 

0511  GO  TO  130 

0512  1390  IF(I,NE.l)GO  TQ  1070 

0513  :F(I3U.NE.7??;GO  TO  1110 

0514  AN3(J)=SUH 

0515  SUN=0 

OSm  4»ITE(LU,liG0i 

35i7  1:50  FORMAT ( *  SUM  *3 

3513  1110  AS2=AS 

35if  A5=ANS<J) 

0520  A8=ABS(ASI 

3521  yilTEdUjllZO) 

3522  1123  FORMAT ('**) 

0523  IF(AB.LT. (TE+7) . AND.AB.GT. <lE-7) , OR . A8.E3. C 0 . 0 ) )UO  TO  1160 

0524  IF(AB.LT,(9.?99E+37))GQ  TO  1140 

0S2S  l=2S440S 

0526  IF(A3.LT.0)L=2644QB 

0527  #RITEiLU,il30)L 

0523  u:o  FQRMATIAl, 'INFINITY'? 

3529  GO  TO  1200 

3530  1140  WRITETLU , 1150 ) AS 

3531  1150  F0RMAT(E9,7) 

0532  GO  TO  1200 

0533  1160  1F(AB.GT. (32767. 033GO  TO  1180 
3534  IF((AINT(AS)),NE.AS)GQ  TO  1161 

0535  L=AS 

3536  i4RITE(LU,  11703L 

3537  U70  rORMATi  18) 

0536  GO  TO  1200 

5539  1131  »RITE(LU,1190)A3 
3540  1193  FORMAT <F8. 7) 

0541  1250  IF(ISU.N£.777)G0  TO  1220 

3542  JRITE(U),1210)N 
0543  1210  FORMATC  N=')44> 

3544  ISU=888 

0S45  1223  IF(IAV,NE,777;G0  TO  1240 

354o  AN3( J)*ANS( J)/N 

0547  GRITE(LU,1230) 

3543  1230  FORMATC  AVERAGE  ’! 

3549  IAV=388 

5550  GO  TO  1110 
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.’AGE 


Mil 


CALOa  11:4;  Ail  THU.,  23  AUG.,  i?Gfl 


i tort 

3353 

0534 

3555 

0336 

3557 

0536 


*240 


124? 

L48 

1253 


WsB2(J)*l 

I£RR=888 
GO  TO  60 
WRIT2(LU,1248) 
FORKATi"  GONE!"' 
CONTINUE 
END 


FTN4  COUPLER:  HP92860-16392  KEU.  2001  (791101) 

»  ,»o  mmms  n  no  errors  n  program  =  3578?  common 


0090 
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LhL:j3  l4Q  42  3/276  . l  < 


2b  -  SO 


j  BERN 


rnuu  <iic.ii  <.wb-iuiiK  Rw.iiuS  » f 'm/ 

RMPAR  40S76  40640  731106  24993-16001 

EURO  40641  40730  771122  24998-16001 

TAN  40731  41335  700424  24993-16081 

AfiS  41036  41044  750701  24993-16001 

. SNCS  410-5  41206  783424  24998-16001 

AM  41207  41307  750701  24998-1600: 

AlOS  41210  41422  780424  24993-16001 

AL3GT  41423  41433  770313  24998-16001 

S5RT  4,434  41535  7S8424  24998-16001 

AlsN  -i 336  4i"04  730424  24998-16001 

.RTQI  41705  42000  780921  24993-16001 

. FPUR  42001  42042  781106  24998-16001 

,RTGR  42343  42140  760301  24998-16001 

, . FCN  4214142155  750701  24998-16001 
rNArtE  42156  42223  771121  24998-ioOOl 

ERG .2!  42224  42224  750701  24993-16001 

.CURS  42225  42310  730424  24998-1600 i 

FRMTR  42311  45746  24993*16002  REV. 1926  ’90503 

FNT.E  45747  45747  24998*16002  REV.  1901  781107 

REID  ^5750  46074  92067-16268  REV. 1903  790316 
EXP  46075  46213  730424  24998-16601 

, CFER  46214  46271  750701  24998-ioOOl 

11  PAGES  RELOCATED  li  PAGES  RES’D  NO  PAGES  EftA  NO  PAGES  USES 
LINKS, BP  PROGRAM :BG  LOAD; IE  CQHHON;NC 

/LuADR ; 3AL98  READY  AT  iisSi  AN  THU.,  S3  AUG.,  i960 

/LGACR : *END 
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